inherited frmUsuario: TfrmUsuario
  Left = 276
  Top = 129
  Caption = 'Cadastro de Usu'#225'rios'
  ClientHeight = 517
  ClientWidth = 736
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 480
    Width = 736
  end
  inherited Panel2: TPanel
    Width = 736
    Height = 480
    inherited Panel3: TPanel
      Width = 734
      Caption = 'Usu'#225'rios'
      inherited GroupBox1: TGroupBox
        Left = 655
      end
    end
    inherited Panel4: TPanel
      Width = 734
      Height = 438
      inherited SbHints: TStatusBar
        Top = 415
        Width = 726
      end
      object PageControl1: TPageControl
        Left = 4
        Top = 4
        Width = 726
        Height = 411
        ActivePage = TabUsuario
        Align = alClient
        MultiLine = True
        TabOrder = 0
        object TabUsuario: TTabSheet
          Caption = 'Dados do Usu'#225'rio '
          object Label12: TLabel
            Left = 3
            Top = -2
            Width = 33
            Height = 13
            Caption = 'Codigo'
          end
          object Label13: TLabel
            Left = 63
            Top = -2
            Width = 28
            Height = 13
            Caption = 'Nome'
          end
          object Label1: TLabel
            Left = 4
            Top = 33
            Width = 46
            Height = 13
            Caption = 'Endere'#231'o'
          end
          object Label3: TLabel
            Left = 5
            Top = 69
            Width = 19
            Height = 13
            Caption = 'Cep'
          end
          object Label2: TLabel
            Left = 331
            Top = 33
            Width = 27
            Height = 13
            Caption = 'Bairro'
          end
          object Label11: TLabel
            Left = 2
            Top = 106
            Width = 32
            Height = 13
            Caption = 'Celular'
          end
          object Label5: TLabel
            Left = 349
            Top = 71
            Width = 24
            Height = 13
            Caption = 'Fone'
          end
          object Label15: TLabel
            Left = 416
            Top = 108
            Width = 16
            Height = 13
            Caption = 'C.I.'
          end
          object Label16: TLabel
            Left = 213
            Top = 106
            Width = 29
            Height = 13
            Caption = 'C.P.F.'
          end
          object Label7: TLabel
            Left = 5
            Top = 144
            Width = 36
            Height = 13
            Caption = 'Filia'#231#227'o'
          end
          object Label6: TLabel
            Left = 2
            Top = 181
            Width = 36
            Height = 13
            Caption = 'Fun'#231#227'o'
          end
          object Label10: TLabel
            Left = 3
            Top = 218
            Width = 55
            Height = 13
            Caption = 'Dt.cadastro'
          end
          object Label8: TLabel
            Left = 92
            Top = 219
            Width = 25
            Height = 13
            Caption = 'Email'
          end
          object Label17: TLabel
            Left = 79
            Top = 71
            Width = 33
            Height = 13
            Caption = 'Estado'
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label9: TLabel
            Left = 183
            Top = 71
            Width = 33
            Height = 13
            Caption = 'Cidade'
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label14: TLabel
            Left = 356
            Top = 182
            Width = 41
            Height = 13
            Caption = 'Empresa'
          end
          object Label19: TLabel
            Left = 520
            Top = 337
            Width = 31
            Height = 13
            Caption = 'Senha'
          end
          object Label18: TLabel
            Left = 444
            Top = 337
            Width = 56
            Height = 13
            Caption = 'Comiss'#227'o %'
          end
          object Label4: TLabel
            Left = 368
            Top = 337
            Width = 57
            Height = 13
            Caption = 'Desconto %'
          end
          object EdtUsuCod: TDBEdit
            Left = 4
            Top = 12
            Width = 54
            Height = 21
            Hint = 'Codigo do Usuario '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_CODIGO'
            DataSource = DtSrc
            Enabled = False
            MaxLength = 3
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnExit = EdtUsuCodExit
          end
          object EdtUsuNome: TDBEdit
            Left = 61
            Top = 12
            Width = 548
            Height = 21
            Hint = 'Nome do Usu'#225'rio  '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_NOME'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
          end
          object EdtUsuEnd: TDBEdit
            Left = 4
            Top = 47
            Width = 321
            Height = 21
            Hint = 'Endere'#231'o do Usu'#225'rio'
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_ENDERECO'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
          end
          object EdtUsuCep: TDBEdit
            Left = 3
            Top = 83
            Width = 72
            Height = 21
            Hint = ' Informe o cep '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_CEP'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 4
          end
          object EdtUsuBairro: TDBEdit
            Left = 331
            Top = 47
            Width = 275
            Height = 21
            Hint = ' Informe o bairro  '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_BAIRRO'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
          end
          object EdtUsuCell: TDBEdit
            Left = 2
            Top = 119
            Width = 205
            Height = 21
            Hint = ' Informe o numero do celular '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_CELL'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 8
          end
          object EdtUsuFone: TDBEdit
            Left = 349
            Top = 83
            Width = 255
            Height = 21
            Hint = ' Informe o numero do telefone '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_FONE'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 7
          end
          object EdtusuCI: TDBEdit
            Left = 416
            Top = 120
            Width = 189
            Height = 21
            Hint = ' Informe o carteira de identidade '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_CI'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 10
          end
          object EdtUsuCpf: TDBEdit
            Left = 213
            Top = 120
            Width = 196
            Height = 21
            Hint = ' Informe o CPF '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_CPF'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 9
            OnExit = EdtUsuCpfExit
          end
          object EdtUsuFiliacao: TDBEdit
            Left = 3
            Top = 158
            Width = 705
            Height = 21
            Hint = ' Informe a filia'#231#227'o '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_FILIACAO'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 12
          end
          object EdtUsuFunc: TDBEdit
            Left = 3
            Top = 194
            Width = 41
            Height = 21
            Hint = ' Codigo da fun'#231#227'o do usu'#225'rio '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_CODFUNC'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 13
            OnExit = EdtUsuFuncExit
          end
          object BtnFuncao: TBitBtn
            Left = 46
            Top = 193
            Width = 25
            Height = 25
            Caption = '...'
            Enabled = False
            TabOrder = 14
            OnClick = BtnFuncaoClick
          end
          object EdtUsuDataCad: TDBEdit
            Left = 3
            Top = 231
            Width = 85
            Height = 21
            Hint = 'Data de cadastro do usu'#225'rio '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_DATACAD'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 18
            OnEnter = EdtUsuDataCadEnter
          end
          object EdtUsuEmail: TDBEdit
            Left = 91
            Top = 232
            Width = 269
            Height = 21
            Hint = ' Email do usu'#225'rio '
            Ctl3D = True
            DataField = 'USU_EMAIL'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 19
          end
          object RadioAtivo: TRadioGroup
            Left = 610
            Top = 114
            Width = 103
            Height = 32
            Hint = ' Informe se us'#225'rio ativo ou n'#227'o '
            Caption = ' Ativo '
            Columns = 2
            Enabled = False
            ItemIndex = 0
            Items.Strings = (
              '&Sim'
              '&N'#227'o')
            ParentShowHint = False
            ShowHint = True
            TabOrder = 11
          end
          object Panel5: TPanel
            Left = 611
            Top = 3
            Width = 102
            Height = 102
            BevelInner = bvLowered
            BevelWidth = 2
            Caption = 'Foto'
            TabOrder = 20
            object Image1: TImage
              Left = 4
              Top = 4
              Width = 94
              Height = 94
              Align = alClient
              Enabled = False
              Proportional = True
            end
          end
          object GroupBox2: TGroupBox
            Left = 0
            Top = 256
            Width = 714
            Height = 74
            Caption = ' Observa'#231#245'es '
            TabOrder = 21
            object EdtusuObs: TDBMemo
              Left = 5
              Top = 15
              Width = 700
              Height = 50
              DataField = 'USU_OBS'
              DataSource = DtSrc
              ParentShowHint = False
              ShowHint = True
              TabOrder = 0
            end
          end
          object EdtREstado: TDBEdit
            Left = 79
            Top = 84
            Width = 34
            Height = 21
            Hint = ' Unidade Federativa '
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_ESTCOD'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 5
            OnExit = EdtREstadoExit
          end
          object DblcRCidade: TDBLookupComboBox
            Left = 114
            Top = 84
            Width = 233
            Height = 21
            Hint = 'Informe o nome da cidade'
            BevelOuter = bvNone
            BevelKind = bkFlat
            Ctl3D = True
            DataField = 'USU_CIDCOD'
            DataSource = DtSrc
            DropDownRows = 10
            KeyField = 'CID_CODIGO'
            ListField = 'CID_DESCRI'
            ListFieldIndex = 1
            ListSource = DtsCidades
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 6
          end
          object GbAtuacao: TGroupBox
            Left = 1
            Top = 333
            Width = 360
            Height = 44
            Hint = 'Informe sobre atua'#231#227'o do usu'#225'rio na empresa'
            Caption = 'Atua na empresa como'
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 22
            object DBCheckBox1: TDBCheckBox
              Left = 88
              Top = 16
              Width = 70
              Height = 17
              Caption = '&Vendedor'
              DataField = 'USU_VENDEDOR'
              DataSource = DtSrc
              Enabled = False
              TabOrder = 0
              ValueChecked = 'S'
              ValueUnchecked = 'N'
            end
            object DBCheckBox2: TDBCheckBox
              Left = 160
              Top = 16
              Width = 111
              Height = 17
              Caption = '&Operador de Caixa'
              DataField = 'USU_OPERADOR'
              DataSource = DtSrc
              Enabled = False
              TabOrder = 1
              ValueChecked = 'S'
              ValueUnchecked = 'N'
            end
            object DBCheckBox3: TDBCheckBox
              Left = 8
              Top = 16
              Width = 75
              Height = 17
              Caption = '&Supervisor'
              DataField = 'USU_SUPERVISOR'
              DataSource = DtSrc
              Enabled = False
              TabOrder = 2
              ValueChecked = 'S'
              ValueUnchecked = 'N'
            end
            object DBCheckBox4: TDBCheckBox
              Left = 272
              Top = 16
              Width = 73
              Height = 17
              Caption = '&Estoquista'
              DataField = 'USU_ESTOQUISTA'
              DataSource = DtSrc
              Enabled = False
              TabOrder = 3
              ValueChecked = 'S'
              ValueUnchecked = 'N'
            end
          end
          object EdtUsuNomeFunc: TEdit
            Left = 70
            Top = 197
            Width = 283
            Height = 19
            Color = clBtnFace
            Ctl3D = False
            Enabled = False
            ParentCtl3D = False
            TabOrder = 23
          end
          object EdtCodEmpresa: TDBEdit
            Left = 357
            Top = 195
            Width = 41
            Height = 21
            Hint = ' Codigo da fun'#231#227'o do usu'#225'rio '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_CODEMPRESA'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 15
            OnExit = EdtCodEmpresaExit
          end
          object BtnEmpresa: TBitBtn
            Left = 400
            Top = 194
            Width = 25
            Height = 25
            Caption = '...'
            Enabled = False
            TabOrder = 16
            OnClick = BtnEmpresaClick
          end
          object EdtEmpresaNome: TEdit
            Left = 424
            Top = 198
            Width = 283
            Height = 19
            Color = clBtnFace
            Ctl3D = False
            Enabled = False
            ParentCtl3D = False
            TabOrder = 17
          end
          object EdtUsuSenha: TDBEdit
            Left = 521
            Top = 353
            Width = 60
            Height = 21
            Hint = 'Informe a senha para acesso a rotinas do sistema '
            DataField = 'USU_SENHA'
            DataSource = DtSrc
            Enabled = False
            PasswordChar = '*'
            TabOrder = 24
          end
          object EdtUsuComissao: TDBEdit
            Left = 444
            Top = 353
            Width = 74
            Height = 21
            Hint = 'Informe o percentual para comiss'#227'o '
            DataField = 'USU_COMISSAO'
            DataSource = DtSrc
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 25
          end
          object EdtUsuDesc: TDBEdit
            Left = 369
            Top = 353
            Width = 72
            Height = 21
            Hint = 'Informe o valor em percentual maximo para desconto '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'USU_DESCONTO'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 26
          end
        end
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Usuarios
    Left = 168
    Top = 344
  end
  object DtsCidades: TDataSource
    DataSet = SQLC_Cidade1
    Left = 345
    Top = 344
  end
  object SQLC_Cidade1: TSQLClientDataSet
    CommandText = 
      'select * from CIDADES where cid_estcod =:pest order by cid_descr' +
      'i ;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pest'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 427
    Top = 344
    object SQLC_Cidade1CID_ESTCOD: TStringField
      FieldName = 'CID_ESTCOD'
      Required = True
      FixedChar = True
      Size = 2
    end
    object SQLC_Cidade1CID_CODIGO: TStringField
      FieldName = 'CID_CODIGO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object SQLC_Cidade1CID_DESCRI: TStringField
      FieldName = 'CID_DESCRI'
      Required = True
      Size = 35
    end
  end
  object SQLC_Usuarios: TSQLClientDataSet
    CommandText = 'select * from USUARIOS where usu_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 240
    Top = 344
    object SQLC_UsuariosUSU_CODIGO: TStringField
      FieldName = 'USU_CODIGO'
      Required = True
      Size = 6
    end
    object SQLC_UsuariosUSU_NOME: TStringField
      FieldName = 'USU_NOME'
      Required = True
      Size = 40
    end
    object SQLC_UsuariosUSU_ENDERECO: TStringField
      FieldName = 'USU_ENDERECO'
      Size = 60
    end
    object SQLC_UsuariosUSU_BAIRRO: TStringField
      FieldName = 'USU_BAIRRO'
      Size = 60
    end
    object SQLC_UsuariosUSU_CEP: TStringField
      FieldName = 'USU_CEP'
      Size = 9
    end
    object SQLC_UsuariosUSU_FONE: TStringField
      FieldName = 'USU_FONE'
      Size = 30
    end
    object SQLC_UsuariosUSU_CELL: TStringField
      FieldName = 'USU_CELL'
      Size = 30
    end
    object SQLC_UsuariosUSU_CPF: TStringField
      FieldName = 'USU_CPF'
      Size = 14
    end
    object SQLC_UsuariosUSU_CI: TStringField
      FieldName = 'USU_CI'
      Size = 11
    end
    object SQLC_UsuariosUSU_CODFUNC: TStringField
      FieldName = 'USU_CODFUNC'
      Required = True
      Size = 3
    end
    object SQLC_UsuariosUSU_ATIVO: TStringField
      FieldName = 'USU_ATIVO'
      Required = True
      Size = 1
    end
    object SQLC_UsuariosUSU_DATACAD: TDateField
      FieldName = 'USU_DATACAD'
      Required = True
    end
    object SQLC_UsuariosUSU_EMAIL: TStringField
      FieldName = 'USU_EMAIL'
      Size = 60
    end
    object SQLC_UsuariosUSU_OBS: TMemoField
      FieldName = 'USU_OBS'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_UsuariosUSU_CIDADE: TStringField
      FieldName = 'USU_CIDADE'
      Size = 30
    end
    object SQLC_UsuariosUSU_SENHA: TStringField
      FieldName = 'USU_SENHA'
      Size = 6
    end
    object SQLC_UsuariosUSU_CIDCOD: TStringField
      FieldName = 'USU_CIDCOD'
      Required = True
      Size = 3
    end
    object SQLC_UsuariosUSU_ESTCOD: TStringField
      FieldName = 'USU_ESTCOD'
      Required = True
      Size = 2
    end
    object SQLC_UsuariosUSU_FILIACAO: TStringField
      FieldName = 'USU_FILIACAO'
      Size = 40
    end
    object SQLC_UsuariosUSU_VENDEDOR: TStringField
      FieldName = 'USU_VENDEDOR'
      Size = 1
    end
    object SQLC_UsuariosUSU_OPERADOR: TStringField
      FieldName = 'USU_OPERADOR'
      Size = 1
    end
    object SQLC_UsuariosUSU_SUPERVISOR: TStringField
      FieldName = 'USU_SUPERVISOR'
      Size = 1
    end
    object SQLC_UsuariosUSU_DESCONTO: TFMTBCDField
      FieldName = 'USU_DESCONTO'
      Precision = 15
      Size = 2
    end
    object SQLC_UsuariosUSU_COMISSAO: TFMTBCDField
      FieldName = 'USU_COMISSAO'
      Precision = 15
      Size = 2
    end
    object SQLC_UsuariosUSU_CODEMPRESA: TSmallintField
      FieldName = 'USU_CODEMPRESA'
      Required = True
    end
    object SQLC_UsuariosUSU_ESTOQUISTA: TStringField
      FieldName = 'USU_ESTOQUISTA'
      Size = 1
    end
  end
  object SQLC_GRUPOS_USUARIO: TSQLClientDataSet
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    Left = 546
    Top = 306
  end
end
